home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / Music Util v1.5 TPL.adf / play.s < prev    next >
Text File  |  1987-05-04  |  1KB  |  82 lines

  1. * 8 Channel - Test 2 *
  2.  
  3. org $70000
  4. load $70000
  5.  
  6. p:        lea    $dff000,a6
  7.         move.w    #$4000,$9a(a6)
  8.         move.w    #$1ff,$96(a6)
  9.         move.l    #Sample,$a0(a6)
  10.         moveq    #1,d1
  11.         move.w    #156*2+1,$a4(a6)
  12.         moveq    #0,d2
  13.         moveq    #0,d3
  14.         lea    Ton2,a1
  15.         lea    Ton,a0
  16.         move.w    #227,$a6(a6)
  17.         move.w    #64,$a8(a6)
  18.         move.w    #$8001,$96(a6)
  19.         move.w    #$0080,$9c(a6)
  20.         move.l    #$08000,d4
  21.         move.l    #$08000,d5
  22. pwait:        btst    #7,$1f(a6)
  23.         beq.s    pwait
  24.  
  25.         lea    Sample(pc),a2
  26.  
  27.  
  28.         move.w    #625,d7
  29. loople:        move.b    (a0,d2.w),d0
  30.         add.b    (a1,d3.w),d0
  31.         eor.b    #$80,d0
  32.         move.b    d0,(a2)+
  33.         swap    d2
  34.         swap    d3
  35.         add.l    d4,d2
  36.         add.l    d5,d3
  37.         swap    d2
  38.         swap    d3
  39.         dbf    d7,loople
  40.  
  41.         move.w #$80,$9c(a6)
  42.  
  43.  
  44.  
  45.         btst    #6,$bfe001
  46.         beq.s    pex
  47.         btst    #2,$16(a6)
  48.         bne.s    pwait
  49.         addq.w    #1,d1
  50.         move.w    d1,$a4(a6)
  51.         bra.s    pwait
  52. pex:        move.w    #$c000,$9a(a6)
  53.         move.w    #$81f0,$96(a6)
  54.         move.w    #1,$96(a6)
  55.         rts
  56.  
  57. TonA:        lea    Ton(pc),a0
  58.         lea    $80000,a1
  59. TA:        move.b    (a0),d0
  60.         eor.b    #$80,d0
  61.         lsr.b    #1,d0
  62.         move.b    d0,(a0)+
  63.         cmp.l    a0,a1
  64.         bne.s    TA
  65.         rts
  66.  
  67.  
  68.  
  69. Sample:        blk.b    626,0
  70.  
  71. org $78000
  72. load $78000
  73. Ton:
  74.  
  75.  
  76. org $7c000
  77. load $7c000
  78.  
  79. Ton2:
  80.  
  81.  
  82.